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i 
} Version: *v04-000' 
PITITIIILITLI LILI LLL LLL LLL Lilli iitiiiiiiiiiitii titi 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND C 
'* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint e AND WIT 


& 

® 

® 

® 

® 

oP . 

H « 

ie IN . THIS SOFTWARE OR ANY O : 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HER ’ 
ie TRANSFERRED. . 
' # 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
is CORPORATION. . 
wr 

x 

*® 

® 

® 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


See eee eee EAE REAR AEA E EAE E AAA 
'e 
i 


UTLDEF .B32 = UTILITY DEFINITION MACROS FOR BLISS PROCESSING 
OF STARLET DEFINITION MACROS. 
MODIFIED BY: 

v03-005 GRR3005 Greg Robert 12-Nov-1982 


Added an allocation check to SITMLST_INIT and 
modified to produce better code. 


v03-004 ing Steve Lionel 88-Nov-1982 

cyenee error message in SASSUME so as to not tr 
display the macro arguments, since BLISS can't oats 
expressions in ZERRORMACRO. 


v03-003 GRR3003 Greg Robert 22-0¢t-1982 
Add SITMLST macros and structure definition to 
define and initialized item lists. 


v03-002 SBL3002 Steve Lionel 21-0c t-1982 
Add SASSUME macro to verify compiletime assumptions. 


v03-001 81S0181 Benn Schreiber 27-Jul-1982 
Add Sinit_dyndesc macro to initialize a dynamic 
descriptor 


<C-- co 
v< < 
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' 
MACROS TO EXTRACT OFFSETS, FIELD WIDTHS, ETC., FROM FIELD EXTRACTION MACROS. 


MACRO 
MACRO 
MACRO 
MACRO 
MACRO 


SBYTEOFFSET (OFFSET, POSITION, WIDTH, SIGN) = OFFSETS; 
SBITPOSITION (OFFSET, POSITION, WIDTH, SIGN) = POSITIONZ; 
SFIELDWIDTH (OFFSET, POSITION, WIDTH, SIGN) = WIDTH2; 
SEXTENSION (OFFSET, POSITION, WIDTH, SIGN) = SIGN; 


SFIELDMASK (OFFSET, POSITION WIDTH. SIGN) = 
(1*(POSITION+WIDTHS = 1“°POSITION 


' 
MACRO TO GENERATE EQULST CONSTRUCTS. 


MACRO 


SD RCQUNT#<S) ! ASSUMES I, S ALWAYS GENERATED BY CONVERSION PROGRAM 


GETIST_(A,B)= 
GET2ND_(A,B)= 


NUL2ND_(A,B)= 
ZAULL(B) % 


! KNOWN NON-NULL 


MACRO TO GENERATE A STRING DESCRIPTOR PLIT 


MACRO 


me ee me me me Et me 


SDESCRIPTORCJ= 
UPLIT(ZCHARCOUNT (ZREMAINING) ,UPLIT BYTE (ZREMAINING) )2; 


SSHR_MSGDEF - a macro which defines facility-specific message codes 


which are based on the system-wide shared message codes. 
SSHR_MSGDEF( name, code, scope, (msg,severity), ... ) 


where: 
name is the name of the fog tt ity. (e.9.- cop 
code is the AC for globe facil sy cee (e.g, 103) 
scope is GLOBAL for globe getters ons tenyt ing else gets 


msg is the name of ty -. ae noseons (ed... BE | 
severity te the desired messoge seve (9.9: 
WARNING, veces . INFO, ERROR, 2 ce CERED 


+ ai @DOr- + ee tees 
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CRO 
SSHR_MSGDEF ( F LITY CODE, ere? = 


ACILITY NAME, FACI 
ZIF LIDENTICAL(ZSTRING(SCOPE) , 'GCOBAL ' 
MTHEN GLOBAL LITERAL 
SSHR_MSGIDS( FACILITY_NAME, eee cael ZREMAINING ); 
ZELSE LITERAL 
SSHR_MSGIDS( FACILITY_NAME, FACILITY_CODE, ZREMAINING ); 
SSHR_MSGIDS( FACILITY_NAME, FACILITY_CODE) C VALUE ] = 
SSHR_MSGCALC( FACTLITY.NAME, FACTLITY_CODE, SREMOVE(VALUE) ) %, 
SSHR nSGCALC( FACILITY NAME, FACILITY CODE, MSG_ID, S$ 
AME (FACILITY wes yMSG_1D) = ZNAME ('SARS_', 
il DECLARED NAME ('STSSk_* ,SEVERITY)) 
THEN ZNAME('STSSK_* SEVERITY) 
ZELSE SEVERITY XFI7%: 


Define VMS block structures (equivalent to BLOCK[,BYTE)) 


STRUCTURE 
$BBLOCK [O, P, S, E: NJ = 


(SBBLOCK+0)<P,S,E>; 
Macro to initialize a dynamic descriptor 


MACRO 
Sinit peat as zs 


d(dsc$w_length] = 0; 

d(dsc$b_ ane = dsc$k _class_d; 
didsc$b_ ~dtype = 5 865k dtype_ t: 
d(dsc$a_pointer) 

endi; 


EVERITY ) = 
MSG_1D) + FACILITY -CODE*65536 + 


mc 
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FUNCTIONAL DESCRIPTION: 
These macros facilitate tee allocation and initialization 
of item lists in Bliss. The Lists are suitable for use 
vith GETDVI, GETSYI, Se1uP! etc. 


MACROS: 
- allocates t Storage and declares a tiet structure 
= dynamically initializes an item 
= generates an UPLIT to a static (reed-enty) item List 


wam 
| a le) 
-—— 
- 


uunber of items in the List (default=1) 
Address of the item List 

Item to be obtained 

Size of the buffer to receive the item (default=4) 

Address of the buffer to receive the item 

Address of word to receive the resultant item size (default=0) 


$ 
$ 
$ 
INPUT , 
I 
I 
B 


m 

-_" 

m 
srrresra Ceo 
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EXAMPLE: 


OCAL 
List: SITMLST_DECL (ITEMS=4), 
DEVCLASS, 
DEVTYPE, 
DEVDEPEND 
DEVNAM: VECTOR (64, BYTE), 
DEVNAMSIZ; 


ST_INIT C(ITMLST=LIST, 

TMCOD=DVI$K_DEVCLASS, BUFADR=DEVCLASS), 

TMCOD=DVISK~DEVTYPE, BUFADR=DEV 

TMCOD=DV1$K~DEVDEPEND, BUPADREDEVDEPEND 

I TMCOD=DV1 $K_DEVNAM, BUF ADR=DEVNAM, BUF Si i=66, RETLEN=DEVNAMES1Z) 


V 
R 


pon ove CITMLST=LIST, DEVNAM=$DESCRIPTOR(*SYSSOUTPUT")); 


-—< 


STRUCTURES: 
SITMBLK Citems, item_size, allocation_unit] 


This structure defines an item list as a blockvector with 
a trailing longword used to terminate the List. 


You must specify the number of items in the List. The size of 
each item defaults to 12 and the allocation unit defaults te BYTE. 


Fields in an item List declared with this structure can be 
referenced in the following way: 


or oC: 
ws Dec 


S< 


item_list_address Citem_number, field_specifier] 
For example, ITMLST (3, ITMSW_ITMCOD) references the item code 


UTLDEFB.B32;1 


KE YWORDMACRO 


SSITMBLKPTR CO, 
+ aati . 


aFI 


*s$it 


: Define the allocation macro 


CRO 
SITALST_INIT CITMLST) CITEM_VALUES) = 
Z1F ZCOUNT EQL 0 


SSITM_INIT (ZREMOVE (ITEM_VALUES)) 
ZIF ZCOUNT EQL ZLENGTH = 2 
THEN 


32, 0) = 
MBLKPTR + 0 


: field of the third item in the item List. 

' 

: First define macro's to access item fields 

MACRO 
ITMSS_ITEM = 12 % ! Item List member size 
1TM$W_BUFSIZ = 0,0,16,0 %, ! jorget setter size 
1TMSW_ITMCOD = 2,0,16,0 2, ' Item 
ITMSL-BUFADR = 4,0,32,0 2, ' Target “butter address 
ITMSL_RETLEN = 8,0,352,0 2; ! Address of word to receive length 

: 

Define an item List structure 

STRUCTURE 


$1TMBLK pi. essuntts E; N, BS=ITMSS_ITEM, UNIT=1) = 
(S1TMBLK+(1*BS+0) *UNIT)<P,S,E>; 


SITMLST “DEC C(ITEMS=1) = SITMBLK CITEMS) 2% ; 


' Define the List initialization macro 


THEN 
- SSITM_INITIATE CITMLST, NUMITM = ZLENGTH = 1) 


H 
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' 
Define the List initiation macro 
KE YWORDMAC RO 
SSITM ae aare CITMLST 
ALLOCATION itmer issu ((NUMITM) * ITMSS_ITEM + 4) 


Hien 
- XERRORMACRO (‘initialization data exceeds allocation of ', ITMLST) 


BEGIN 
LOCAL SSITMBLKPTR: P34 a 
. SSITMBLKPTR = (ITMLST) 


: Define the item initialization macro 


KE YWORDMACRO 
' Size of return buffer 
ITMCOD, ' Item code 
' Address of return buffer 
__ RETLEN=0 ! Address of word to receive resultant length 
ate aa CITMCOD) OR ZNULL (BUFADR) 


' Me SERRORMACRO (*ITMCOD and BUFADR must be specified’) 


SSITMBLKPTR CITMSW_BUFSIZ) = (BUFSIZ); 
SSITMBLKPTR CITMSW_ITMCOD) = (ITMCOD); 
SSITMBLKPTR CITMSL_BUFADR] = (BUFADR); 
SSITMBLKPTR CITMSL-RETLEN) = (RETLEN); 
SSITRALKPTR = .SSITMBLKPTR + ITMSS_ITEM; 


' Define the static List macro 


SITMLST_UPLIT () = 
UPLTT (¢ ( SSITMLST -UPLIT_REPEAT (ZREMAINING) , LONG (0)) 2% ; 


: Define the repetition macro 


MACRO = $SITMLST_UPLIT_REPEAT CITEM) = 


SSITMLST_UPLIT_ITEM ( ” SREMOVE (ITEM) ) 2; 


"Oe ee tree 
Sx. = 


vo: 
| po 


. 8 . . 
Ss ee ceo 
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dv! 
] 
' « 
: Define the static item macro ] 
KEYWORDMACRO ] 
SSITMLST YP IT ITER ( y 
BUFSTZ=4, ' Size of return buffer 

ITMCOD, ' Item code ] 

BUFADR, Address of return buffer 


, RETLEN=0 ! Address of word to receive resultant length 
= 


ZIF ZNULL (CITMCOD) OR ZNULL (BUFADR) 
eri ZERRORMACRO ("ITMCOD and BUFADR must be specified') 


“~9o0 3~0 s~090 so s0 sco +o 
-~< << Ac Hc HEC HS HS 


: WORD (BUFSIZ, ITMCOD), LONG (BUFADR, RETLEN) 


% 


“AO etree 
“<= “<= “A= “~< 
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' cond = The relation that is to hold between val 


SASSUME = Test compile-time relation assumptions 
Format: 
SASSUME (val-1, cond, val-2) 


val-1 = A compile-time constant expression to be gonpared with val-2. 
-1 and val-2. for 
example Edt LSSU, etc. 
val-2 -A compile-t me constant expression to be compared with val-1. 


Result: 
The empty sequence. If the given relation does not hold, an 
error message is issued. 


MACRO 
SASSUME (V1, COND, V2) = 
Z%1F NO 


Vi COND v2) 
ZTHEN ZERROR ('SASSUME relationship does not hold’) 2FI %; 
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